﻿Public Class dialThemeName

    Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
        Me.btnOk.Enabled = txtName.Text.Length > 0
    End Sub

    Private Sub btnOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
    Public ReadOnly Property ThemeName As String
        Get
            Return Me.txtName.Text
        End Get
    End Property
End Class